home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / pc / tutorial / devglry / zoetek / source / shckclck.dir / 00152_zone pick.ls < prev    next >
Encoding:
Text File  |  1996-04-11  |  158 b   |  11 lines
  1. global away, tzLoc, tzDest
  2.  
  3. on mouseDown
  4.   if away then
  5.     set tzDest to the clickOn
  6.   else
  7.     set tzLoc to the clickOn
  8.   end if
  9.   tzClick(the clickOn)
  10. end
  11.